home *** CD-ROM | disk | FTP | other *** search
- #include "ComponentData.h"
- #include "MyCloseComponent.h"
-
-
- pascal ComponentResult MyCloseComponent( PrivateGlobals **storage, ComponentInstance self)
- {
- OSErr err = noErr;
-
- if (storage)
- {
- if ( (*storage)->delegate )
- err = CloseComponent((*storage)->delegate);
-
- if ( (*storage)->coolSpeechChannel )
- err = DisposeSpeechChannel((*storage)->coolSpeechChannel);
-
- if ( (*storage)->textH )
- DisposeHandle( (Handle) (*storage)->textH );
-
- if ( (*storage)->translatedTextH )
- DisposeHandle((*storage)->translatedTextH);
-
- DisposeHandle((Handle) storage);
- }
-
- return (ComponentResult) err;
- }
-